home *** CD-ROM | disk | FTP | other *** search
/ Workbench Designer 2 / Workbench Designer 2.iso / blanker / madhouse / install&remove / remove < prev   
Encoding:
Text File  |  1996-10-24  |  1.7 KB  |  76 lines
  1. ; Remove-Installer script for Madhouse V2.12
  2.  
  3. (complete 0)
  4.  
  5. (set #mainprgsource "Madhouse")
  6. (set #mainprgdest "SYS:WBStartup")
  7.  
  8. (if (= @language "deutsch") (
  9.     (set #intro
  10.     (cat "Madhouse wieder entfernen? Schade!\nBitte schreibt uns, wenn Ihr Kritik habt. "
  11.          "Wir wären Euch sehr dankbar.\n\nMit Proceed geht's dann los." ))
  12.     
  13.     (set #extro
  14.     (cat "Das war's dann!\n"))
  15.  
  16. ))
  17.  
  18.  
  19. (if (<> @language "deutsch") (
  20.     (set #intro
  21.     (cat "About to remove Madhouse, what a pity!\nPlease write us what you disliked! "
  22.          "Thankyou."))
  23.     
  24.     (set #extro
  25.     (cat "Okay, that was it!\n" ))
  26.  
  27. ))
  28.  
  29.  
  30. (message #intro)
  31.  
  32. (run (cat "Gettooltype " (tackon #mainprgdest "Madhouse") " CONFIGED") )
  33. (set #gtt (pathonly (getenv "Gettooltype")) )
  34. (delete "ENV:Gettooltype")
  35. (message #gtt)
  36.  
  37. (complete 5)
  38. (delete "ENV:Madhouse.prefs")
  39. (complete 10)
  40. (delete "ENVARC:Madhouse.prefs")
  41. (complete 15)
  42. (delete "SYS:WBStartup/Madhouse")
  43. (complete 20)
  44. (delete "SYS:WBStartup/Madhouse.info")
  45. (complete 25)
  46. (if (> (/ (getversion) 65536) 37)
  47.     (
  48.         (if (<> @language "English" ) (
  49.             (delete "Locale:Catalogs/deutsch/madhouse.catalog")
  50.             (complete 60)
  51.             (delete "Locale:Catalogs/deutsch/madhousebg.catalog")
  52.         ))
  53.     )
  54. )
  55. (complete 30)
  56.  
  57. (delete (tackon #gtt "Anleitung.guide"))
  58. (delete (tackon #gtt "Anleitung.guide.info"))
  59. (delete (tackon #gtt "Doc.guide"))
  60. (delete (tackon #gtt "Doc.guide.info"))
  61. (delete (tackon #gtt "Registration_E.txt"))
  62. (delete (tackon #gtt "Registration_E.txt.info"))
  63. (delete (tackon #gtt "Registration_D.txt"))
  64. (delete (tackon #gtt "Registration_D.txt.info"))
  65.  
  66. (complete 40)
  67.  
  68. (run ("delete %s ALL" (tackon #gtt "Blankers")))
  69. (run ("delete %s ALL" (tackon #gtt "ImportHelp")))
  70.  
  71. (complete 100)
  72.  
  73. (message #extro)
  74.  
  75.  
  76.